home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Ports.asm < prev    next >
Assembly Source File  |  1990-05-10  |  1KB  |  65 lines
  1. *
  2. *    Ports.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the Exec library routines in
  6. *    Include/Exec/Ports.i.  The Pascal source for the routines
  7. *    CreatePort() and DeletePort() are in Runtime/Extras.
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _AbsExecBase
  13.  
  14.     XREF    _LVOAddPort
  15.     XDEF    _AddPort
  16. _AddPort
  17.     move.l    4(sp),a1
  18.     move.l    _AbsExecBase,a6
  19.     jmp    _LVOAddPort(a6)
  20.  
  21.     XREF    _LVOFindPort
  22.     XDEF    _FindPort
  23. _FindPort
  24.     move.l    4(sp),a1
  25.     move.l    _AbsExecBase,a6
  26.     jmp    _LVOFindPort(a6)
  27.  
  28.     XREF    _LVOGetMsg
  29.     XDEF    _GetMsg
  30. _GetMsg
  31.     move.l    4(sp),a0
  32.     move.l    _AbsExecBase,a6
  33.     jmp    _LVOGetMsg(a6)
  34.  
  35.     XREF    _LVOPutMsg
  36.     XDEF    _PutMsg
  37. _PutMsg
  38.     move.l    4(sp),a1
  39.     move.l    8(sp),a0
  40.     move.l    _AbsExecBase,a6
  41.     jmp    _LVOPutMsg(a6)
  42.  
  43.     XREF    _LVORemPort
  44.     XDEF    _RemPort
  45. _RemPort
  46.     move.l    4(sp),a1
  47.     move.l    _AbsExecBase,a6
  48.     jmp    _LVORemPort(a6)
  49.  
  50.     XREF    _LVOReplyMsg
  51.     XDEF    _ReplyMsg
  52. _ReplyMsg
  53.     move.l    4(sp),a1
  54.     move.l    _AbsExecBase,a6
  55.     jmp    _LVOReplyMsg(a6)
  56.  
  57.     XREF    _LVOWaitPort
  58.     XDEF    _WaitPort
  59. _WaitPort
  60.     move.l    4(sp),a0
  61.     move.l    _AbsExecBase,a6
  62.     jmp    _LVOWaitPort(a6)
  63.  
  64.     END
  65.